Pascal Super Library/Pascal Super Library (CW International)(1997).bin/LIBRARY/CMPLTPAS/DOWNCASE.PAS

Pascal/Delphi Source File | 1988-12-15 | 184b | 10 lines

FUNCTION DownCase(Ch : Char) : Char;

CONST
  Uppercase : SET OF Char = ['A'..'Z'];

BEGIN
  IF Ch IN Uppercase THEN DownCase := Chr(Ord(Ch)+32)
    ELSE DownCase := Ch
END;